1 .RING
2 .ALBERT PAUL
3 .CURSOR
4 .APRIL/MAY 1980: 31.
10 clear 
20 N=1600;M=1849
30 for X=-44to 0
40 for Y=-44to 0
50 if (Xmul X)+(Ymul Y)>Mgoto 110
60 if (Xmul X)+(Ymul Y)<Ngoto 120
70 box X,Y,1,1,1
80 box X,-Y,1,1,1
90 box -X,Y,1,1,1
100 box -X,-Y,1,1,1
110 next Y
120 next X
:return ;run 
